home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / cadstop.zip / CADTESTS.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-05  |  906b  |  46 lines
  1. PROGRAM CADTests;
  2.  
  3. USES
  4.    Crt,Dos,CADThief;
  5.  
  6. {This program tests the CAD handler routine}
  7.  
  8.  VAR
  9.     A: char;
  10.  
  11. BEGIN
  12.   ClrScr;
  13.  
  14.   {Test 1 to go in any program section}
  15.  
  16.   A := ' ';
  17.   GotoXY(1,20);
  18.   WriteLn('This section puts the program');
  19.   WriteLn('into an endless loop to simulate');
  20.   WriteLn('the checking you can perform in');
  21.   WriteLn('a program during processing.');
  22.   WHILE A = ' ' DO
  23.     BEGIN
  24.       IF GetCAD and HandleCADs THEN
  25.         BEGIN
  26.           ClrScr; A := 'X'
  27.   END
  28.     END;
  29.  
  30.   {Test 2 which is designed for an input loop}
  31.  
  32.   GotoXY(1,3);
  33.   WriteLn('----- Starting Test -----');
  34.   WriteLn('Type anything to test keyboard');
  35.   Write  ('           Press Enter to quit: ');
  36.   WHILE Ord(A) <> 13 DO
  37.     BEGIN
  38.       IF KeyPressed THEN
  39.   BEGIN
  40.     A := ReadKey; Write(A)
  41.   END
  42.       ELSE
  43.   IF GetCAD and HandleCADs THEN A:=Chr(13)
  44.     END
  45. END.
  46.